home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / refxmpl / setdraw.bas < prev    next >
BASIC Source File  |  1998-04-07  |  280b  |  18 lines
  1. CLS
  2. Color 168 ' Columbia Blue
  3. FillRect 50,50 To 150,150
  4. SetDrawLayer(TEXT)
  5. oldx = 0
  6. for x = -50 to 400
  7. SuspendUpdate
  8. Rem Erase old circle
  9. Color -1 ' Erase Color
  10. FillCircle oldx,100,50
  11. Rem Draw new circle
  12. Color 111 'Sports Car Red
  13. FillCircle x,100,50
  14. oldx = x
  15. ResumeUpdate
  16. Next x
  17.  
  18.